Program Temperature;
{   . 
    }
Var T: array[1..12] of real; {  }
 I: integer;  Tsred: real;
 Begin
{ }
	for I:=1 to 12 step 1 do
	begin  Write('T[',I:2,']=');
	           Readln(T[I])
                 End;
{ }
       	Tsred:=0;
	for I:=1 to 12 do
      	     Tsred:=Tsred+T[I];
{  }
      	Tsred:=Tsred/12;
{ }
      Writeln(' =', Tsred:6:2, ' ')
End.

